perf_data <- read.table('stats2.dat')
plot(100-perf_data[,'V1'],type='b',xlab='time in seconds', ylab='% utilisation (U_i)')
u_i <- mean(100-perf_data[,'V1'])
throughput <- 94
d_i <- u_i / throughput

